SUBROUTINE NIO(POS1,POS2,R4,K,RA)
	COMMON /FRMT/F78F(1),FA1(1),FA5(1),ASK /IDEV/IDEV
111	FORMAT(A2,F)
1	READ(IDEV,F78F,END=167)POS1,POS2,R4
	REREAD 111,K,RA  
	RETURN
167	IDEV=5
	GO TO 1
	END
	SUBROUTINE NIO2
4333  	CALL TYPSTR('TYPE POS1, POS2, (SPC)  ')
	END
	SUBROUTINE MISMCH(RA,Y)
CCC134	FORMAT(' **** MISMATCH WITH SPACING STAFF ****',F7.3/
CCC	1 F7.3,' QUARTERS IN THIS LINE.')
CCC	TYPE 134,RA,Y
	CALL TYPCRLF
	CALL TYPSTR('**** MISMATCH WITH SPACING STAFF ****')
	CALL TYPFLT(RA)
	CALL TYPCRLF
	CALL TYPFLT(Y)
	CALL TYPSTR(' QUARTERS IN THIS LINE.')
	CALL TYPCRLF
	END
	SUBROUTINE TYPOUT
	COMMON /SC/J,L,MK,ISKP,XMINUS,N,IEXP,LK,NNUM,JJ,JA,DBST,NFLG,
	1 IXX,ISEMI,IQT,VX(50),IAMP,K,KN,M,MODE,IBLA /ALF/INP(72),ML
	DO 1 KK=72,1,-1
1	IF(INP(KK).NE.IBLA)GO TO 2
CCC2	TYPE 3,MODE,(INP(J),J=1,KK)
CCC3	FORMAT(I2,4X,72A1)
C PERHAPS THE OLD WAY IS BETTER*****
2	CALL TYPINT(MODE)
	CALL TYPCHR('   ',3)
	DO 3  KKK=1,KK
3	CALL TYPCHR(INP(KKK),1)
	CALL TYPCRLF
	END